home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Propeller.AMOS / Propeller.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  823 b   |  25 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Hide : Cls 0
  11. Palette ,$F11,$E22,$D33,$C44,$B55,$A66,$977,$888,$799,$6AA,$5BB,$4CC,$3DD,$2EE,$1FF,$EE,$1DD,$2CC,$3BB,$4AA,$599,$688,$777,$866,$955,$A44,$B33,$C22,$D11,$E00,$F00
  12. Shift Up 2,1,31,1
  13.  
  14. Do 
  15.  
  16.    OX=X
  17.    OY=Y
  18.    X=159+Sin(C)*C/100+Cos(C/2)*12
  19.    Y=127+Cos(C)*C/100
  20.    Add T,1,1 To 31*2
  21.    Ink T/2
  22.    If OX<>0 Then Draw X,Y To OX,OY
  23.    Inc C
  24.  
  25. Loop